\ random 97.8.14 NAB

: seed ( ud -- )  SysRandom drop ;
: rand ( -- n )  0. SysRandom ;

TimGetTicks seed
